home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / spscr-bas.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  3KB  |  48 lines
  1. 100 POKE56,PEEK(46)+2:CLR: REM SET TOP OF BASIC TEXT 2 BLK ABOVE END OF PROG
  2. 110 POKE53281,12:POKE53280,0:PRINT"[144]"
  3. 115 SYS (PEEK(45)+PEEK(46)*256-63): REM MOVE ML TO FINAL RESTING PLACE
  4. 120 B$="                                        ":REM 40 BLANKS
  5. 130 PRINT"[147]   *****  [211]PEED[211]CRIPT [212]O [194]ASIC  *****   "
  6. 140 PRINT"           [194]Y [205]IKE [203]OZAKIEWICZ"
  7. 150 PRINT"            [210]OCHESTER, [206][217] [213][211][193]"
  8. 160 LD%=7:GOSUB460:INPUT"[195]REATE [196][193][212][193] OR [208][210][201][206][212] [211]TMNTS (D/P)   D[157][157][157]";TYPE$
  9. 170 TYPE$=LEFT$(TYPE$,1):IF(TYPE$<>"D") AND (TYPE$<>"P") THEN GOTO 160
  10. 180 ADDR=49152:IF TYPE$="P" THEN ADDR=49155
  11. 190 CLOSE15:OPEN15,8,15,"I0":REM REMOVE ,"I0" IF YOU'VE CHANGED THE DRIVE'S SPEED
  12. 200 LD%=7:GOSUB460:INPUT"[201]NPUT FILE NAME    *QUIT[157][157][157][157][157][157][157]";IN$
  13. 210 IFIN$=""THEN200
  14. 220 IF IN$="*QUIT"THEN GOTO 440
  15. 230 CLOSE1:OPEN1,8,3,IN$:INPUT#15,EN,EM$:F$=IN$:IFEN=0THEN250
  16. 240 GOSUB510:GOTO200
  17. 250 SYS(ADDR):CLOSE1:SYS65484
  18. 260 LD%=11:GOSUB460:PRINT"          [201]NSERT [207]UTPUT [196]ISK[146]              "
  19. 270 GOSUB 480:ADDR=49158
  20. 280 LD%=9:GOSUB460:INPUT"[207]UTPUT FILE NAME   *QUIT[157][157][157][157][157][157][157]";OUT$
  21. 290 IF OUT$="*QUIT"THEN GOTO 440
  22. 300 CLOSE9:OPEN9,8,4,"0:"+OUT$:INPUT#15,EN,EM$:F$=OUT$:CLOSE9
  23. 310 IFEN=0THEN340
  24. 320 IFEN<>62THEN GOSUB 510:GOTO260
  25. 330 GOTO380
  26. 340 LD%=12:GOSUB460:PRINTOUT$;" EXISTS... [210]EPLACE? [217][146]/[206][146]:"
  27. 350 GETA$:IFA$<>"Y"ANDA$<>"N"THEN350
  28. 360 IFA$="N"THEN260
  29. 370 PRINT#15,"S0:"+OUT$
  30. 380 LD%=15:GOSUB460
  31. 390 T1=8+LEN(OUT$):B1$=LEFT$(B$,(20-(T1/2))):PRINTB1$;"[211]AVING: ";OUT$;"[146]"
  32. 400 SYS(ADDR),OUT$:SYS65484:PRINT"             [196]ONE.
  33. 410 [133]"(null)AKE ANOTHER COPY   NCMDCMDCMD";AN$
  34. 420 AN$[178][200](AN$,1):[139](AN$[179][177]"Y")[175](AN$[179][177]"N")[167]410
  35. 430 [139] AN$[178]"Y"[167] [137] 260
  36. 440 [151]56,160:[143] RETURN BASIC TEXT RAM TO BASIC
  37. 450 [129]I[178]1[164]15:[160]I:[130]:[156]:[153]"RUNONONON":[128]
  38. 460 [158]49161,LD%
  39. 470 [153]"":[129]J[178]1[164]LD%[171]1:[153]:[130]:[142]
  40. 480 [153]"        (null)RESS A (null)EY TO LENONTINUE"
  41. 490 [161]AN$:[139]AN$[178]""[167]490
  42. 500 [142]
  43. 510 [153]"STR$ISK ERROR FOR ";F$:[153]EM$:[141]480:[142]
  44. 520 [160]15:[159]15,8,15:[132]15,A$,S$:[160]15:[153]A$;",";S$:[128]
  45. 530 [151]43,[194](45)[171]2:[151]44,[194](46):[153]"LOADNEWP(null)43,1:P(null)44,8:?CHR$(147)"
  46. 540 [147]"$",8
  47. 550 [160]15:[159]15,8,15,"S0:SP-BAS.BAS":[160]15:[148]"SP-BAS.BAS",8
  48.